﻿Public Class UserDTO
    Private strFullName As String
    Public Property FullName() As String
        Get
            Return strFullName
        End Get
        Set(ByVal value As String)
            strFullName = value
        End Set
    End Property

    Private iUserAccountID As Integer
    Public Property UserAccountID() As Integer
        Get
            Return iUserAccountID
        End Get
        Set(ByVal value As Integer)
            iUserAccountID = value
        End Set
    End Property

    Private strName As String
    Public Property Name() As String
        Get
            Return strName
        End Get
        Set(ByVal value As String)
            strName = value
        End Set
    End Property

    Private iPrivilege As Integer
    Public Property Privilege() As Integer
        Get
            Return iPrivilege
        End Get
        Set(ByVal value As Integer)
            iPrivilege = value
        End Set
    End Property

    Private bolNoneFlag As Boolean
    Public Property NonFlag() As Boolean
        Get
            Return bolNoneFlag
        End Get
        Set(ByVal value As Boolean)
            bolNoneFlag = value
        End Set
    End Property

    Private bolReadonlyFlag As Boolean
    Public Property ReadonlyFlag() As Boolean
        Get
            Return bolReadonlyFlag
        End Get
        Set(ByVal value As Boolean)
            bolReadonlyFlag = value
        End Set
    End Property

    Private bolFullFlag As String
    Public Property FullFlag() As String
        Get
            Return bolFullFlag
        End Get
        Set(ByVal value As String)
            bolFullFlag = value
        End Set
    End Property

    Private bolAdministrator As Boolean
    Public Property Administrator() As Boolean
        Get
            Return bolAdministrator
        End Get
        Set(ByVal value As Boolean)
            bolAdministrator = value
        End Set
    End Property

    Private bolCashBookFlag As Boolean
    Public Property CashBookFlag() As Boolean
        Get
            Return bolCashBookFlag
        End Get
        Set(ByVal value As Boolean)
            bolCashBookFlag = value
        End Set
    End Property

    Private strUserFullName As String
    Public Property UserFullName() As String
        Get
            Return strUserFullName
        End Get
        Set(ByVal value As String)
            strUserFullName = value
        End Set
    End Property

    Private strUserName As String
    Public Property UserName() As String
        Get
            Return strUserName
        End Get
        Set(ByVal value As String)
            strUserName = value
        End Set
    End Property

    Private _PasswordChgAtLogonFlag As Boolean
    Public Property PasswordChgAtLogonFlag() As Boolean
        Get
            Return _PasswordChgAtLogonFlag
        End Get
        Set(ByVal value As Boolean)
            _PasswordChgAtLogonFlag = value
        End Set
    End Property

    Private _CannotChgPasswordFlag As Boolean
    Public Property CannotChgPasswordFlag() As Boolean
        Get
            Return _CannotChgPasswordFlag
        End Get
        Set(ByVal value As Boolean)
            _CannotChgPasswordFlag = value
        End Set
    End Property

    Private _StatusFlag As Boolean
    Public Property StatusFlag() As Boolean
        Get
            Return _StatusFlag
        End Get
        Set(ByVal value As Boolean)
            _StatusFlag = value
        End Set
    End Property

    Private _EmailAddress As String
    Public Property EmailAddress() As String
        Get
            Return _EmailAddress
        End Get
        Set(ByVal value As String)
            _EmailAddress = value
        End Set
    End Property

    Private _PhoneNumber As String
    Public Property PhoneNumber() As String
        Get
            Return _PhoneNumber
        End Get
        Set(ByVal value As String)
            _PhoneNumber = value
        End Set
    End Property






    Public Sub New()

    End Sub

    Public Sub New(ByVal sFullName As String, ByVal _iUserAccountID As Integer, ByVal sUserName As String, ByVal iPrivilege As Integer, _
    Optional ByVal NoneFlag As Boolean = False, Optional ByVal Read_Only As Boolean = False, Optional ByVal FullFlag As Boolean = False)
        Try
            With Me
                strFullName = sFullName
                iUserAccountID = _iUserAccountID
                strName = sUserName
                iPrivilege = iPrivilege
                bolNoneFlag = NoneFlag
                bolReadonlyFlag = Read_Only
                bolFullFlag = FullFlag
            End With
        Catch ex As Exception

        End Try
    End Sub


End Class
